home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbox10.zip / README.DOC < prev    next >
Text File  |  1992-01-22  |  4KB  |  81 lines
  1.  QuickBox: V1.0  Copyright (c)  1992 Business Enhancement Partnership Group
  2.  ESC=Exit : PgUp/PgDn=Next/Previous Page  :  ARROWS=Line Up/Down : Home/End
  3. .h ╒════════════════════════════════════════════╕
  4. .h │ Windows...Windows.....  Yup, more Windows! │
  5. .h ╘════════════════════════════════════════════╛
  6.  
  7. One of the first things most new PowerBasic programmers want to learn is
  8. how to make those fancy 'Pop-Up' windows.  A quick browse through the
  9. library reveals many such programs, but most of them have the source code
  10. in pre-assembled .PBU files.  So your stuck using them as designed, and
  11. you really can't learn much from them.  Don't get me wrong, these programs
  12. are extremely valuable, and the authors have every right to keep their
  13. work protected.
  14.  
  15. This little SUBroutine is a bit different.  First the source code IS
  16. included, and second, it's not as Flash*Bang as the rest.  QuickBox uses
  17. the CALL ABSOLUTE command to make a Pop-Up box any place on the screen,
  18. using any color you wish.  The default parameters put a single line border
  19. around the box (again, in any color you choose) and places a small drop
  20. shadow along the bottom and right side for a "3-D" effect.
  21.  
  22. The objective of this routine is KEEP IT SIMPLE.  Although you can control
  23. the exact location of the box, you only need to set two parameters, the width
  24. (1 to 78 spaces across) and the depth (1 to 22 lines down), and the box will
  25. be centered on the screen.  Upon returning from the CALL, the variables
  26. Box.Top and Box.Left are set so that you can put your text in at the proper
  27. place. For an exact location, you can set the variables Box.Top and Box.Left
  28. before calling the routine, and the box will appear at those locations.
  29.  
  30. The first parameter in the CALL is a flag used to determine if the box is to
  31. be displayed (Box.Disp% = 0), or removed (Box.Disp% = 1) from the screen.
  32. Again, this is not the most unique method, but it works well for most
  33. applications. When called (either from the QuickBox routine, or directly)
  34. the SUBroutine "Video.Image" saves the current screen display on disk as a
  35. binary file.  Each new screen (up to 99 screens) is assigned an index number
  36. as part of the file name.  When the Box.Disp% parameter is set to 1, the
  37. LAST binary image file is BLOADed and replaces the current screen display.
  38. If the value is set to -1, the very first screen is restored and all of the
  39. remaining binary screen images are deleted from the disk.  If you look closely
  40. at the source code, this method is used to restore the users original screen
  41. when the program ends, a polite little thing to do.
  42.  
  43. Hopefully, the listing is commented well enough for you to see how everything
  44. works.  The routines can be $INCLUDEed in your existing main program or can
  45. be compiled and $LINKed in.
  46.  
  47. .h╓────────────────────────╖
  48. .h║  Special Thanks......  ║
  49. .h╙────────────────────────╜
  50.  
  51. .r╒══════════════════════════════════════════════════════════════════════════╕
  52. .r│ I wish to send a special thanks to Llyod Smith from Spectra Technical    │
  53. .r│ support for "syntax perfecting" this, and for past and future assistance.│
  54. .r│                                                                          │
  55. .r│ Also a quick thanks to Information Management Systems, Inc. and all who  │
  56. .r│ contribute to their "Basically Speaking" newsletter.  Its a great source │
  57. .r│ for learning and sharing Powerbasic ideas.                               │
  58. .r╘══════════════════════════════════════════════════════════════════════════╛
  59.  
  60.  
  61. .h╓───────────────────────────────╖
  62. .h║ Registration and Other Stuff. ║
  63. .h╙───────────────────────────────╜
  64.  
  65.  QuickBox is FREEware.  If it suits your purpose and you wish to be kind,
  66.  a few bucks for my time is always appreciated!  The only way a good
  67.  programmer becomes a great programmer is to learn and improve on ideas of
  68.  others.  If you change parts of this program for any reason, please share
  69.  it with me, and others.
  70.  
  71. .i Comments may be sent to:
  72.   
  73. .i Business Enhancement Partnership Group 
  74. .i 3410 F. La Sierra Ave. Suite # 181     
  75. .i Riverside, Ca.  92503                  
  76.  
  77. .h CompuServe ID : 76636,2764 
  78. .h America OnLine: B4expert  
  79.  
  80. .r      Copyright (c) 1992 - Business Enhancement Partnership Group         
  81.